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— Stats. Mesa Edited by Sandman on September 1, 1977 6:15 PM 

DIRECTORY 

AltoDefs: FROM "altodefs". 
AltoFileDefs: FROM "al tof iledefs" , 
BcdDefs: FROM "bcddefs". 
ControlDefs: FROM "controldef s", 
CmdDefs: FROM "cmddefs'*. 
DoubleOefs: FROM "doubledefs" , 
FrameDefs: FROM "framedefs", 
lODefs: FROM "iodefs". 
ImageDefs: FROM "imagedefs", 
InlineOefs: FROM "in! inedef s" . 
SegmentDefs: FROM "segmentdef s'*, 
StreamOefs: FROM "streamdef s" , 
StringOefs: FROM "stringdefs" , 
SymDefs: FROM "symdef?", 
SystemOefs: FROM "systemdef s" ; 

DEFINITIONS FROM AltoDefs, AUoFileOefs, CmdDefs, lODefs, SegmentDefs, StringOefs, StreamOefs; 

Stats: PROGRAM 

IMPORTS CmdDefs, DoubleDefs, FrameDefs, lODefs, SegmentDefs, StreamOefs, StringOefs, 
SystemOefs = 

PUBLIC BEGIN 

-- types and globals 

stattype: TYPE = {char , 1 ine, codebytes , f ramesize ,ngf i , 

1 ink base, nl inks , codepages.sympages , fsi}; 

charField,codebyteFie1d: CARDINAL = 7; 
nlinksField,1ineFie1d,framesizeField: CARDINAL = 6; 
codepageField, sympageFiel d: CARDINAL = 5; 
linkbaseField. fsiField: CARDINAL = 4; 
ngfiField: CARDINAL = 3; 
filenameField: CARDINAL = 26; 

file: FileHandle ^ NIL; 

code: Fi leSegmentHandle ♦- NIL; 

syms: Fi leSegmentHandle ♦- NIL; 

cmdstream: StreamHandle; 

stream: StreamHandle; 

Ic: INTEGER; 

full : INTEGER = 18; 

buffer: POINTER; 

BufSize: CARDINAL = 40*266; 

stats: ARRAY stattype OF CARDINAL ^ [0,0,0,0,0,0.0,0,0,0]; 

total .subtotal : ARRAY stattype OF DoubleDefs . LongCARDINAL ♦- 

[[0.0], [0,0], [0,0], [0,0], [0,0], [0.0], [0.0], [0.0], [0.0], [0,0]]; 

format: ARRAY stattype OF lODef s . NumberFormat = 

, unsigned: TRUE, col umns : charField] , 
unsigned: TRUE, col umns : 1 ineField] , 
unsigned: TRUE, columns: codebyteField] , 
unsigned: TRUE, columns : FramesizeField] , 
unsigned: TRUE, col umns : ngf IF ield] , 
unsigned: TRUE, columns : 1 inkbaseF ield] , 
unsigned: TRUE, col umns : nl inksFiel d] , 
unsigned: TRUE, col umns : codepageField] , 
unsigned: TRUE, col umns : sympageF iel d] , 
unsigned: TRUE, columns: fsi F iel d]] ; 

header: ARRAY stattype OF STRING = 

["chars "."lines ", "codebytes "."framesize ","ngfi ","linkbase ", 
"nlinks " , "codepages "."sympages ","fsi "]; 

-- the following should be sets 

StatsWanted, localStatsWanted: ARRAY s tat type[char . . f si ] OF BOOl EAN *- 
[TRUE , TRUE. TRUE. TRUE, TRUE. TRUE, TRUE. TRUE. TRUE, TRUE]: 

CallDebugger: SIGNAL = CODE; 
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— procedures 

BcdSwitches: PROCEDURE [wanted: BOOLEAN, st:DESCRIPTOR FOR ARRAY stattype OF BOOLEAN] = 
BEGIN 

st[codebytes]^wanted; 
st[framesi2e]*-wanted; 
st[ngf i]*-wanted; 
st[1 inkbase]*-wanted; 
st[n1 inks]*-wanted; 
st[codepages]*-wanted; 
st[sympages]*-wanted ; 
st[fsi]*-wanted; 
END; 

GetBcdStats: PROCEDURE [codeseg, symseg : F ileSegmentHandle] = 
BEGIN OPEN ControlDefs, SegmentOefs; 
slot: [0. .maxallocslot]; 
cp: POINTER TO CsegPrefix; 
codebase, codeend: POINTER; 
SwapIn[codeseg] ; 

cp ♦- codebase ^ FileSegnientAddress[codeseg]; 
stats[n1 inks] ♦- cp.nlinks; 
stats[ngf i] ♦■ cp.ngf i ; 
statsp inkbase] ♦• cp.linkbase; 

stats[fsi] *• slot ^ cp.Entry\/ector[MainBodyIndex] . framesize; 
stats[f ramesize] <- IF slot = maxanocslot 

THEN (codebase+cp. En tryVector[MainBody Index]. in i tialpc-l)t 
ELSE FrameOefs. FrameSize[s1ot]; 
codeend ♦• codebase + In! ineDefs.BITSHIFT[codeseg .pages .LogPageSize] ; 
DO -- until something non-zero 

codeend «- codeend-1; 

IF codeendtf^O THEN EXIT; 

ENDLOOP; 
stats[codepages] ♦• codeseg. pages; 
stats[codebytes] ♦- Inl ineOefs.BITSHIFT [ 

LOOPHOLE[codeend-LOOPHOLE[codebase.CARDINAL]+l],l]; 
Unlock[codeseg] : 
stats[sympages] <- symseg. pages ; 
RETURN 
END; 

GetModule: PROCEDURE [f i le: F i leHandle] RETURNS [codeseg . symseg : F i leSegmentHandle] « 
BEGIN 

bed: POINTER TO BcdDefs.BCD; 
pages: Al toDef s . PageCount ; 
mtb: CARDINAL; 

mti: BcdDefs.MTIndex = FIRST[BcdDef s.MTIndex] ; 
bcdseg: Fi leSegmentHandle ♦• NewFi leSegment[f i le, 1 , 1 , Read] ; 
Swapln[bcdseg] ; 

bed <- Fi leSegmentAddress[bcdseg]; 
IF (pages ♦- bcd.nPages) # 1 THEN 

BEGIN 

Unlock[bcdseg] ; 

MoveF ileSegment[bcdseg, 1, pages]; 

Swapln[bcdseg] ; 

bed ♦- Fil eSegmentAddress[bcdseg] ; 

END; 
IF bed. versionident n BedDef s . VersionID THEN 

BEGIN 

Wri teString['* bad version ID "]; 

Wri teDecimal[bcd. version i dent]; 

Unloek[bedseg] ; 

DeleteF j leSegment [bcdseg] ; 

RrTURN[NIL. NIL] 

END; 
IF bcd.nModules n 1 THEN 

BFGIN 

Wr i LeString[" Loo many modules: "]; 

Wr i teDec imal [bed . nModul es] ; 

Unlock[bcdseg] ; 

Deleter i 1 eSegment[ bcdseg] ; 

RrTURN[NIL. NIL] 

END; 
mtb ♦- LOOPHOI F[bcd,CARDINAL]+bcd.mtOffset; 

codeseg ^ IF bed . def in i L ions THFN Nil FLSE Fi ndSegmen t[bedseg , (mtb+mt i ) . cseg . FAISF]: 
symseg ♦- r indSegmen t[bcdseg , (mLb+mt i ) . sseg . FAI.SC]; 
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Un1ock[bcdseg]; 

De1eteFileSegment[bcdseg]; 

RETURN 

END; 

FindSegment: PROCEDURE [seg: FileSegmentHandle, segdesc: BcdDefs.SegDesc, long; BOOLEAN] 
RETURNS [FileSegmentHandle] « 
BEGIN 

ss: StringDefs.SubStringDescriptor; 
file: SegmentDefs.FileHandle; 
name: STRING; 

bed: POINTER TO BcdDefs.BCD ♦• Fi leSegmentAddress[seg] ; 
IF segdesc. file = BcdDef s. FTNull THEN RETURN[NIL] 
ELSE IF segdesc. file = BcdDef s . FTSelf THEN file ♦- seg. file 
ELSE 

BEGIN OPEN f: LOOPHOLE[bcd+bcd . f tOf f set , CARDINAL]+segdesc. f ile; 

name «- SystemOefs.AnocateHeapString[f .name, length+4]; 

ss ^ [LOOPHOLE[bcd+bcd.ssOrfset, STRING], f . name . of f set . f. name. length]; 

StringDefs.AppendSubString[name, 0s s] ; 

CheckForExtens ion [name, ".bed"]; 

file ♦- NewFi le[name, Defaul tAccess , Def aul tVersion]; 

SystemDefs .FreeHeapString[name]; 

END; 
RETURN[NewFileSegmentCf ile. segdesc. base, 

segdesc. pages + (IF long THEN segdesc. extraPages ELSE 0), Read]]; 
END; 

CheckForExtension: PROCEDURE [name, ext: STRING] = 
BEGIN 

i: CARDINAL; 
FOR i IN [0. .name. length) DO 

IF name[i] = ' . THEN RETURN; 

ENOLOOP; 
StringOefs.AppendSt ring [name, ext]; 
RETURN 
END; 

GetSrcStats: PROCEDURE [stream: StreamHandle] * 
BEGIN 

count, i: CARDINAL; 
nc. nl: CARDINAL ♦- 0; 
crock: STRING = L00PHOLE[buf f er-2] ; 
UNTIL (count ♦• ReadBlock[ 

stream: stream, address: buffer, words: BufSize I 

StreamError => C0NTINUE])=0 DO 
FOR i IN [0. ,count*2) DO 

IF crock[i] = lODefs.CR THEN nl ^ nl+1; 
nc ♦- nc+1; 
ENDLOOP; 
ENDLOOP; 
stats[char] ♦- nc; stats[line] ♦• nl; 
RETURN 
END; 

GetStats: PROCEDURE = 
BEGIN 

name: STRING ♦- [40]; 
switches: STRING ^ [10]; 
command: BOOLEAN; 
i: CARDINAL ♦- 0; 
headingWanted: BOOLEAN ♦• TRUE; 

buffer ♦- SystemDefs. AnocateSegment[BufS ize] ; 
SetCommandInput[] ; 
WMTir Nextri1e[name, switches] DO 
IF name[0] = '? TflEN He1 pMessage[] 
ELSE 
BEGIN 

localStatsWanted ♦■ StatsWanted; command ♦- FALSE; 
i ♦- 0; 

WHILE i < switches. length DO 
SEl ECT swUches[i] FROM 

•b.'B => BcdSwi Lches[TRUE.nESCRTPT0R[loca1StatsWanted]]: 
'm, 'M => SourceSwi tches[TRUE.DESCRrPTOR[localStatsWnnLed]]; 
•x, •X = > BEGIN 

BcdSwitches[ FALSE. DESCRIPTOR[ localStatsWanted]]: 
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ManagerSwitchesCTRUE.DESCRIPTORCIocalStatsWanted]]; 
END; 
•- =>BEGIN 

i ♦- i+1; 

SELECT switches[i] FROM 
'b,'B => BcdSwitches[FALSE,DESCRIPTOR[localStatsWanted]]; 
•m.'M => SourceSwitches[FALSE,DESCRIPT0RCloca1StatsWanted]]; 
•x/X => ManagerSwitchesCFALSE,DESCRIPTOR[localStatsWanted]]; 
ENDCASE=> HelpMessage[]; 
END; 
'c, 'C => BEGIN 

SELECT name[0] FROM 
•b.'B => BcdSwitches[TRUE.DESCRIPT0R[StatsWanted]3; 
'd, 'D => CanOebugger[]; 
♦h, 'H => Heading[]; 

•m.'M => SourceSwitches[TRUE.DESCRIPTOR[StatsWanted]]; 
'X, •X = > BEGIN 

BcdSwitches[FALSE,DESCRIPTORCStatsWanted]]: 
ManagerSwitches[TRUE.DESCRIPTOR[StatsWanted]]; 
END; 
't.'T => Total["TOTAL:". FALSE]: 
•s.'S => Tota1["SUBT0TAL:",TRUE]; 
'- => SELECT name[l] FROM 

•b,'B => BcdSwitches[FALSE.DESCRIPTOR[StatsWanted]]; 
'm,'M => SourceSwitches[FALSE,DESCRIPTOR[StatsWanted]]; 
'x.'X => ManagerSwnches[FALSE,DESCRIPTOR[StatsWanted]]; 
ENDCASE=> HelpMessage[]: 
ENDCASE => He1pMessage[]; 
command ^ TRUE; 
END; 
ENDCASE => He1pMessage[]; 
i ♦- i + 1; 
ENDLOOP; 
IF NOT command THEN 
BEGIN 

IF headingWanted THEN BEGIN headingWanted ♦- FALSE; Heading[] END; 
StripEx tens ion [name] ; 
WriteString[name] ; 

THROUGH [name. length. .filenameField) DO WriteChar[' ] ENDLOOP; 
Ap p en dSt ring [name, " .mesa"]; 
RecordSrcStats[name I Fi leNameError => 

BEGIN SourceSwitches[FALSE,DESCRIPT0R[loca1StatsWanted]]; 
CONTINUE END]; 
StripExtension[name] ; AppendString[name , " .bed"]; 
RecordBcdStats[name ! FileNameError => 

BEGIN BcdSwitches[FALSE,DESCRIPT0R[loca1StatsWanted]]; 
CONTINUE END]; 
TanyStats[]; 
PrintStats[]; 
Wri teChar[CR]; 
END; 
END; 
ENDLOOP; 

SystemDefs . FreeSegment[buf fer] ; 
END; 

Heading: PROCEDURE = 
BEGIN 

type: stattype; 
WriteChar[CR]; 

THROUGH [0. . filenameField) DO WriteChar[* ] ENDLOOP; 
FOR type IN stattype DO 

IF loca1StatsWanted[type] THEN Wr i teString[header[ type]] ENDLOOP; 
WriteCliar[CR]: 

THROUGH [0. .filenameField) DO WriteChar[' ] ENDLOOP; 
FOR type IN stattype DO 
IF localStatsWanted[type] THEN 
BFGIN 

THROUGH [0. . format[type]. columns) DO Wr i teChar[ ' -] ; ENDLOOP; 
THROUGH [0..2) DO WrJteChar[' ]; ENDLOOP: 
END; 
FNDIOOP; 
Wri teChar[CR]; 
Wri teChar[CR]: 
FND; 
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HelpMessage: PROCEDURE » 

BEGIN 

WriteLine["The following commands are available; "]; 

WriteLine[" b.B - bed stats"]; 

WriteLine[" d,D - enter debugger"]; 

WriteLine[" h,H - print column headings"]; 

WriteLine[" m,M - source stats"]; 

WriteLine[" s.S - subtotal"]; 

WriteLine[" t,T - total"]; 

WriteLine[" x.X - source characters, source lines, code bytes, and frame size only"]; 

WriteLine["b. m, and x are also valid file switches which override the global settings for the file 
*♦. c and C are switches which indicate a command, i.e. d/c is the command to call the debugger. To sup 
**press the printing of a set of stats, either locally or globally, precede the switch or command by a 
**minus ('-'). Hence -b/c suppresses the printing of all bed stats, and foo/-b suppresses the printing 
**of bed stats for file foo. The default settings are b and m."]; 

END; 

ManagerSwitches: PROCEDURE [wanted: BOOLEAN, st: DESCRIPTOR FOR ARRAY stattypeCFIRST[stattype] . .LAST[s 
♦*tattype]] OF BOOLEAN] =: 
BEGIN 

st[char] ♦• wanted; 
st[l ine] ^ wanted; 
st[codebytes] ♦• wanted: 
st[f ramesize]*- wanted; 
END; 

NextFile: PROCEDURE[name, switches : STRING] RETURNS [BOOLEAN] = 
BEGIN 

temp: STRING ♦• [80]; 
IF cmdstream § NIL THEN 

RETURN[ReadCmdStream[cmdstream, name, switches]] 
ELSE 

BEGIN 

WriteString["File: "]; 

ReadID[temp]; 

WriteChar[CR]; 

RETURN[ReadCmdString[temp , name, switches]]; 

END; 
END; 



PrintStats: PROCEDURE = 
BEGIN OPEN lODefs; 
type: stattype; 

FOR type IN [FIRST[stattype] . . LAST[stattype]) DO 
IF localStatsWanted[type] THEN 
BEGIN 

Wri teNumber[ stats [type] , format [type]] ; 
Wri teString[" , "]; 
END 
ENDLOOP: 
IF localStatsWanted[LAST[stattype]] THEN 

WriteNumber[stats[ LAST [stattype]], forma t[LAST[stattype]]] 
END: 

RecordBcdStats: PROCEDURE [name:STRING] = 
BEGIN OPEN StringOefs: 
type: stattype; 
any: BOOLEAN ♦- FALSE; 

FOR type IN [ngfi..fsi] DO any ♦- any OR locals tatsWan ted[ type] ENDLOOP; 
any ♦- any OR 1 oca1StatsWanted[codebytes] OR localStatsWan ted[rrames ize] ; 
IF any THEN 
BEGIN 

File ^ NewF i 1 e[name , Read ,01 dF i leOnly] ; 
[code.syms] ♦- GetModul e[f 11 e] ; 
IF code ff NIL THEN 
BEGIN 

GetBcdStats[code, syms] ; 
Deleter i 1 eSegment[code] : 
END 
ELSE BcdSwitches[ FALSE, DESCRIPTOR [localStatsWan ted]]: 
IF syms if NIL THEN Del e teF i 1 eSegmen t[syms] ; 
END; 
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RETURN 
END; 

RecordSrcStats: PROCEDURE [name: STRING] = 
BEGIN OPEN StringDefs, SegmentDefs; 
IF 1ocalStatsWanted[char] OR localStatsWanted[l ine] THEN 

BEGIN 

file ^ NewFileCname, Read.OldFileOnly]; 

stream <- CreateByteStreamif lie, Read]; 

GetSrcStats[stream] ; 

stream. destroy [stream]; 

END; 
RETURN; 
END; 

SetCommandlnput: PROCEDURE =« 
BEGIN 

cmdstream ♦- CreateByt0Stream[NewFi 1e["Com.cm" .Read ,01 dFileOnly] .Read] ; 
SkipExecCommands[cmdstream] ; -- skip Mesa. Image 
SkipExecCommands[cmdstream] ; -- skip bed name 
IF cmdstream. endof [cmdstream] THEN 

BEGIN 

cmdstream. destroy[cmdstream]; 

cmdstream ♦• NIL; 

END; 
END; 

StripExtension: PROCEDURE [nameiSTRING] = 
BEGIN 

i: CARDINAL; 
FOR i IN [0. .name. length) DO 

IF name[i] = '• THEN BEGIN name, length ♦- 1; RETURN END; 
ENDLOOP; 
RETURN 
END; 

SourceSwitches: PROCEDURE[wanted: BOOLEAN, st: DESCRIPTOR FOR ARRAY stattype[FIRST[stattype] . . LAST[st 
♦*attype]] OF BOOLEAN] » 
BEGIN 

st[char]*-wanted; 
st[1 ine]«-wanted; 
END; 

TallyStats: PROCEDURE = 
BEGIN OPEN DoubleDefs; 
type: stattype; 
-- no total for fsil 

FOR type IN [FIRST[stattype] . . sympages] DO 
IF localStatsWanted[type] THEN 

subtota1[type] *- DAdd[subtotal [type]. 

LongCARDINAL[highbi ts:0. 1 owb i ts : stats[ type]]] ; 
ENDLOOP; 
END; 

Total: PROCEDURE [name: STRING, subt: BOOLEAN] = 
BEGIN OPEN DoubleDefs; 
type: stattype; 

THROUGH [0. .filenameField) DO WriteChar[' ] ENDLOOP; 
FOR type IN stattype DO 

IF localStatsWanted[type] THEN 
BFGIN 

TIIROUGfl [0. . rormat[type]. columns) DO Wr i teChar[ ' -] ; ENDLOOP; 
THROUGH [0..2) DO WriteChar[' ]; ENDLOOP; 
END; 
ENDIOOP: 
WriteChar[CR]: Wri teChar[CR] ; 
Wr i teStr jng[name] ; 

TtlROUGH [name, length. .filenameField) DO WriteChar[' ] CNDLOOP; 
-- no total for fs i ! 

FOR type IN [riRST[s ta t type] .. sympages ) DO 
If localStatsWanted[type] TfiEN 
BEGIN 

Wr i tenouble[ir subt THEN sub to tal [ type] ELSE 
DAdd[sub total [ type] , tot a 1[ type]], 
forma t[ type]] ; 
Wr I teStr ing[" , "] ; 
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END; 
ENDLOOP; 
IF 1ocalStatsWantecl[sympages] THEN 
WriteDouble[IF subt THEN subtotal[sympages] ELSE 

DAdcl[ sub total [sympages] , total [sympages]], 
format[sympages]]; 
WriteChar[CR]; WriteChar[CR] ; 
IF subt THEN 
BEGIN 
FOR type IN stattype DO 

tota1[typ8] ♦- DAdd[tota1[typ6],subtotal[type]]; 
ENDLOOP; 
subtotal ♦- [[0.0], [0.0], [0.0], [0,0], [0,0], 
[0.0], [0.0], [0.0], [0.0], [0.0]]; 
END; 
END; 

WriteDouble: PROCEDURE [num: OoubleOef s . LongCARDINAL, format: lODefs .NumberFormat] 
BEGIN 

i: CARDINAL; 
temp: STRING ♦• [20]; 
DoubleDef s .AppendDouble[ temp, num]; 
IF temp. length > format . columns THEN 

FOR i IN [0. .format, columns) DO WriteChar[ ' *] ENDLOOP 
ELSE 
BEGIN 

FOR i IN [temp. length .. format. columns) DO 
WriteChar[' ]; 
ENDLOOP; 
WriteString[temp] ; 
END; 
END; 

-- main body 

GetStats[]; 

ImageDef s .StopMesa[]; 

END. 



